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A. ..CLIENT 

B. ..NETWORK 

C. ..(BUSINESS PROCESSING START) 

C1...A FIRST HTML DOCUMENT IS CREATED BY CITING A PROCESSING INSTRUCTION OF FIRST PROCESSING STEP FROM STREAM 
PROGRAM. 

C2..A NEW SESSION VALUE AND A RANDOM NUMBER ARE GENERATED, ENCRYPTED. AND ADDED TO THE FIRST HTML. WHICH IS 
SENT TO CLIENT. 

C3...SESSION VALUE, RANDOM NUMBER, AND PROCESSING STEP INFORMATION ARE RECORDED IN THE RECORDING SECTION. 
C4...(CONTROL SECTION IS RELEASED FROM BUSINESS PROCESSING.) 
C5...(CONTROL SECTION IS RELEASED FOR BUSINESS PROCESSING.) 

C6...SESSI0N VALUE, RANDOM NUMBER, AND INPUT DATA SET ITEM INFORMATION ARE DETECTED FROM RETURN INFORMATION 
AND COMPARED. 

C7...1F SESSION VALUES ARE IDENTICAL AND THE RANDOM NUMBERS ARE DIFFERENT. FIRST PROCESSING STEP IS EXECUTED. 
C8...IF SESSION VALUES ARE IDENTICAL. RANDOM NUMBERS ARE IDENTICAL, AND SET ITEMS ARE IDENTICAL. THEN THE INPUT DATA 

IS INPUT TO THE DATA RECORDING SECTION AND SECOND PROCESSING STEP IS EXECUTED. 
C9...SESSION VALUE, RANDOM NUMBER. AND PROCESSING STEP INFORMATION ARE RECORDED IN THE RECORDING SECTION. 
C10 ...SAME AS ABOVE 
C11...AND SO FORTH 
C12...(BUSINESS PROCESSING END) 

D. .. STREAM PROGRAM 

DI... FIRST PROCESSING STEP 

D2 ... QUOTE PROCESSING INSTRUCTION FOR CREATING THE FIRST HTML DOCUMENT (ORDER START PAGE) FROM OBJECT 

PROGRAM. 
D3... SECOND PROCESSING STEP 

D4... QUOTE PROCESSING INSTRUCTION FOR CREATING THE SECOND HTML DOCUMENT (DATA INPUT FORM) FROM OBJECT 

PROGRAM. 
D5...N-TH PROCESSING STEP 

D6... REGISTER INPUT DATA STORED IN DATA RECORDING SECTION, IN DATABASE 

D7...QUOTE PROCESSING INSTRUCTION FOR CREATING THE N-TH HTML DOCUMENT (PROCESSING END (DB REGISTRATION 
COMPLETE) PAGE) FROM OBJECT PROGRAM 



(57) Abstract: A Web 
application server support 
program enables a user 
to completely control 
the execution order of 
the processing flow 
including transitions of 
a plurality of screens 
in the Web application 
at the server side and 
describe the processing 
flow as "one-unit 
executable program 
code" . Moreover, by 
using the Web application 
server support program, 
it is possible to record all 
the items of the input form 
contained in the HTML 
document transmitted to 
a client as a form ledger 
in the server so that when 
input data corresponding 
to the input form is 
received from a client, it 
is compared/checked with 
the item on the form ledger, 
thereby automatically 
discarding an unauthorized 
input without depending on 
the application program. 
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Language) T?tB*fc £ JlT *3 9 % < h 3 >~</h 3 >ttHTMLX* 
<£^M®±fcjLffi L£^^£^Sfc&<^^T?&5 0 <input 
type=submit action="next" label="^fc^' / > fi, r^fc^j £ 
fc^^ ^-Cfc 9 N ? 7 s( T> h 1 ~Q Z. (Di$ $ ifr ■!? V 

7^ti.mi:tt, jgfll If LT" next" £ vn 5 H 9 — ^ 

i KT&m&tiZo <#siot>« % * h v — a/d ^7 j*<Dffife<Dmm* 
7n^7Ait &mwm<D&.x\z.m^t>tizn%.mnzt(D* ^*m& 

T^5o 05, 6 ^^Lfc^ 9 ^j^^n ^7 -MC^TE:, package 
OysterOrder ; £ *L 5 <fc 5 OysterOrder t 5 ^ 9 * £ 
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^7^^P^7A|j:, # BEGIN#DECLARE — #END#DECLARE 
frttUft-VTjkZfrtcWlfeign (Df-Z'M.m&P 1 sub ~ { ~ 

~ } x-7?;&hfcm : m'fo^ : i®p 2~p 7 fem^^-cv^,, 

^nmtpp i ^^-^ 1 1 zmMms &<d * 

^®#^-|H5p 2 li, ? bti/S^tSS & ©IB IB 

Hg& 1 0 ©^-^fBti^fcm^i-S Zt^XV^f >xf Z 

#LilSift^gRp 3 fi, ^-*|B«&telB«£;fr;fcA;*7^— 7 s —? 
* >X<D* l//<mWt {brand} fcl£4±« Sr^-f^^ 1 ifift A $ tl s M 
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3S#ife=»- KSrA^i-5fcJ?)<D^ W*S5gc {recipe} K±lk^^-f-^ 

{trimming} K: l^^Oifc&jS-t'lK^flS 2 #ftA £ *K P®:fr$fe<E>=* 
^hMtS^^ft {comment} ^ g« KWtfe £ fl 3 . 

ffl^ttTH^T^tbS t % 0 8^ti5*HTMLAS (^^Al) 
&ft&£tl&o c g i o s 3 ©^{H^oT$!l#§R 9 te\ ftUfcStLfc'* 

tb5. seat $^fd^-^ i -cwu 5gflrffir«m-g-**b5A^"7 i ' 

^**v5A;frx-*^iiSfrlMjfc:jg£fU x RMS UfcVN»-£fc:W:3gtej*#fc: 
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|4|:*f^ MJ-A/P^^Aii, top, first, second, third, 
fourth CO So^^l^Ty/fuioTM^tltfe , Z.<DWkmxT 

ti 2 ustream input_order ($o) [ # SE^fiCA^J-^ "A ~ 
top:$o = new <APP> : : OysterOrder ($S) ; 

<£9, new^a^^- (®Wlp2) ;^||?T £ *L 5 ^ t lei £ o T 
OysterOrder -C^£*L5 ^ 7 * ffl <PfElt^^/&S»i5: £ fr, GOfEttiSg 

$ o -e^$fr£>r * ^^^^^$^5 0 ££>fc, $ 0 - 
>default;(^ J: oT^S#^ default (&I^p4) ^H^tV 
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$o L/H£/B ^tuTV^^^ ^ ^ ^ ^ X i|r ^ V> T — <D 

stream input_order ($ol, $o2) [ # St^CA^J^. h P —A 
top : 

$ol = new <APP>: :0yster0rder ($S) ; 
$ol->default ; 

$o2 = new <APP> : : OysterOrder ($S) ; 
$o2->default ; 

(d^i-J; 5 Km — <D? 7 X&ffl\<^XWLW(l<D4 ^**^*$oK $o2 SrS 

^Ofel^ryy first -T?{3\ 13 7 (a) £73* L fc^ — Sr^lJ 
ffiLt, HI 8 fc^c-f-^— v?A 1 flSffsj&SfrSo $V->[SL0T] = 

[ slot => $o->input] ; t |Bgc$tbTV^5 ^ h 111 7 (a) <Z)< 

#slot><D^ ^tDgB^fc. ^ ^*$o <£> input mm-fo'rr (*0iStlft 

fcbT^^$*L5 0 ^S^v" first A^^fB^^ttT 
l^&V^S. first ©fei^f y^lC <fc <9 fW^frfc^— -^A 1 fcf±, i? 

first Trfc If asfatf t t input ^iffi-fr^t:^ 

if ($V-> [act ion] eq "next") [ goto second; ] 
goto first; 
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? ZtlZt, ^fy- A^o ^7 Afc^o^5^^»M3g^^ >yZf second 

second \Z.Um^> 9 0^11^^^-^ 6 £ t t ft**** *Q.&£S;£ff £ 
Ji5f fc, gE^fiBJ bfc J: 5 l-v ftJ#P£fl 9 74 7^ b 7 ^5>^5g>ff 

^-r^^first ©^I^^Ls ^tH^tLfc-feyv-g ^-fit^t^SLM 

<Df&m*'r second fc&SLSr^fr-t" 5 o 

^Ofel^f S'/second-Cfj:, i?B %tfF]&1rZ> Mi-. 3Hl#P§|S 9 

if ($o-> [ERROR] = $o->check) [ goto first; ] 
fc:J;oT, 4 is* 9 V*$o <D check mm-fai* («il^^p6) <D 
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^jg^T" second fc&^T, PHeft-dS^ 8 J; 5 1 b 

a>»ft$*tTv^vv»<g-iz:tt % 07 (b) fc^bfc^—^sii^^ii^ u 

- <£>^.-^B ! ©f£/jfc©HtfcWt % ^^.^^^.$0 05 print *Q.3g*fr<fr 
(*&Jg-ft<fr*B p 7 ) O^a^H^r^tb, feag*? 1 s/:/ first tei^T 

AJ]7 s —*&m7f:&thZ> 0 v>B 1 iciBV^TW:, ^i^Alilot 

^=fTJ >-^^ jj y ^ ^©M^fs'T'^feS third HUG; 

5 first OfeltIS rit ft5 0 

^©M^7 5/ 7" third -O^^^^loKlfflV^bfrSp* 
{orid} mfcf UT nextorid faM-fa-Sr mm<fo<frM p 3 ) &^i?T 
t6i tiot^-^y^f t^ftAt, $$S[DA]- 

>saveObject ($o) ; iZL £ V) > ^ >-X#-S§-#S A^J £ frit * ^^^Wd 

{orid} £r^=¥ — t is* & lsx$o OiS5IS©A^T-^^ 

X-^-<-X 1 1 fc|E«Stl/<5. 

^(Dfe^ t&mxT y fourth \zm/uX^ HI 7 (c) tjk L ^< — 
^^Sr^tJ^bT. H 1 3 m^Lfc^ — S?C 1 #tfMfc$;ft,3 0 J&S;*-^ 

^ fourth J: «9 —51 & ©4±«#s©&:fc&atfsteT-r<5a^ tr^- 
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nmmm^T v?' first (Dmrnzmymtft? z. t^mxh^> 0 

#^SWIEfcftoT|SfT£*L3 «t 5 fc, ✓< 7 IcMt^HTMLjC 

£ tel. — 1 c g i o s 3 ©J&tj^c: J: 9 % 5gft 

1 te:*3V>T, fiU^VNA/Jf-^^^^-YTy h 7 a> ©jgftfflfSft 
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A { Z. |B ic £ *b 6 ^ ^ <0 W 5£ ^ @ ^ ^ % ^ 5E i~ 5 f t T? ^ 3 
- t tfSpXfg £ #{^1. cgios3T*ft, 1^ — X MJ-A7"n^7 

tV^5it'efcott), c g i o s 3 *§-Y ^ 

x* >-xcoig^3g@ ©(eiWS-TS ©t% 7 s n 7=7-^ — fix h y — -Mc:fcs 
^7^±i?t(D^SrW^t5i t ft< x b y — K-fxi 7=7 A£f£j$ 

^ b y — A^n tf? A^^:*5V^T^i. $ol i$o2 t©2o 
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<D4 is?.? >-X&MmirZ> ~ t iaot, OysterOrder ? 9 Xfcmm 

$ti5^y^»©^ts@s©r-^^, $oi t$o2 tfrbttzmwi 

^tt&te* 0 1 9lrffi^^^ HI 1 4 }-^i-A^7 7^- — AcDiS^^SS <d 
^IKiltSo EI 1 9 ^^-T i 5 f-x ✓< 1 OfflfflftS 9 Kt N c g i o s 

"a" , -b" N "c" • • •) Sr*9t)#ttT|B«*fPl OR: 

o^ffitit^T^^tfcoT i~3 ©scffiic j; oa^sti/sa^^* 

HtitlClMflllft 9 ^ $ o 2 £ UT N tfc 

i©^lu|f5f-^tfeoT 1 — 3 ©Scffitz: J; «3 S^§Jx*3B*l^ 
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f-PX'hZy*—? " e " t «r|B«lfP 1 0 A?J 7 * - A ilfiffi £ LTlB 

"a" ^^^7$olO fcBi-t-S^-^-efc 
I9s "h" &4l'X?>'X$ol<D "n^^b" tlt^f-^ 

IffclK 7*—* "c" # N ^y^^y^$ o 2© "%km<D$£ffi" (cif 

7 f — ^ "d" $ o 2(D "=t^>h" K 

^7 A©*a.a^fc^§r^Mi-5fc^-C^^^A7J7 4--A 
&*5 % c g i o s 3 Ji. — 5g©^P^0fScO^tLtr^i-^ h ]) — J^^u 
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^ 7 Ai mWt/P^7 J»mj&*ft5 (OX^ ©HTML 
7^A^oi5 fc*-Jt«r«*H:tfsjfc-**5r fc#"C*5 0 * fete* 

■f&K:. Microsoft excel (5£»FS^) I^UT-^»7-^^ 
^ MJ- A^n ^9 Ate Strife©;* MJ-A7°o ?7 J±&v& 

m*#3fc? =74 h 7 <DmmKmtet>nx^z>(Dx^ -v— i 
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3ft) Sr^r? w 5©t\ ^r;vf-^ -f is Ki>&/B v^-wi^* .x ^ 

0 15 i^-TX 5 ft 3 06D ^ K!)^tt5HTMLi»^ c g i 

0 s 3TMtS^felr, m 1 6 fc^Lfcx h V — A/p ^7 A £x 0 

1 7^^:/TLfc^^ii:^v^1:i5et5 0 tf, HI 1 6 (a) 

("~", "/"/", "this") CO " this "as-to^sr^Lxva) itBl 

6 (b) ie:^-r ? >- K!>jgtb^ f v — j*&mnv, 

P_wait () «t VIEW}* h V— J*Zfu>?7J*<Dmm<D'&m*:'i7 0o 

5 J*&mft£*hZ> t , 0 17 (a) fc^L-fc^— v ? ^a^fflV> btbfcia 
1 5 ^^i-j; 5^30©!?^^ Rl7^7l£j?fc£*K wCO^^^K!>© 
"menu"$i3^-t4oV>TlU 1 6 ( c ) t^f^ MJ -A/d ^7 

menu" 1 7 (b) KIsf Lfc^— S?j£^<D 
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^ £ M £ o T , — ioitPM©rtf l^j!£:i:TA^7t- A*$£r 
KJ:**WR:«5-9— ^<Sr«W bT#fc^ N *»WR:K5 5-9--^Wc± 

*3&ra©ieJ6<E>?gtSfc:i3v^Hu c g i o s 3^os±-csj< s: k/v? 

> Apache «) }CfcV^IfT^tb5Siy7 h!7x7 

a ^9 A) tfeoTt^V^ $ c g i o s 3 — 

yw7Atfcot^ ^-^w— i/ 3 ^^^x Afc*sv^-c c g i o s 

©i £ &• $ "fr & £> tf o T % & V> 0 
£fc. 1 7)S c g i o s 3 <£>$Sfg£fiJJi b-C^S^r^T 5 

7J±&m^Tfc^ ?94T^h7 fcSkm-tZXtl? *-&<DWLfemn * 

At)?* — J*ttmt UTfBHiflJ i o tefBttb* ^7-fryh7 3&>£>5g« 

*tb*i3sflrffif«i©i£^B tmmu 1 o ^iBtt^ttfc^^^s t 
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M%-t£, mmu9ti^ m 2 0 Km-rx 5 fc; a^^-ah^v^^ 

Vmfo&tb&MtRJ&iZcDT*-**?*-? "a" £ = *VM£§8 
^-f-tf^^T^S'a — * "c" t bTlBtt§P 1 0 KifBttS 

vxmtmmfrtbv*-? "a" ~ - c " »e:SE£-f-5tf#«:fi&fflu. istt 
<d" a" ~" c- (DWMmncommt ^^tt-tts^t^, tt 

"a" ©M9?fc5M, ftj#pg& 9 te. A^^^-A-^iKJ; D-x-^ 
"a" ^ i~30fttl!:J: O^SfrLSS^gs*;©'^— *-r?*>5£ fcSr 

fUBfu ^ "a" isg-efcsagflittfff^^ji^oj&feo-e&s^oi: 

4T^h 7 fcmm t5HTMLjtt©A*7t-A©|?t5l &SB«!fP 
ttSBl 0K:IB«£;h/rt:A;*77 ? '-*©iS!jr$CB i^-as^5^^it 

60 
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i & c g i o s 3 (Dm^mm it, mmn i o ^latt 

Mx.fix UNIXIi, 1 9 7 0^1^10 0 B#0£-0#d>ib©;8tlf# 
ic^rfflV>T— /?gl&&i$|Sg©f f S<£:*ToT^5 0 C©fc©. A^^-A 
fc*5V»-C*?-< T>- h 7{c % "M" % "0" N £BU*fc:3» 

ttT5Il#i£i£3it^ % c g i o s 3T*B\ «##^[T^ $ ft* 0 fltfif 
(£JL~Fx H#1f^^i-5) N "J!" N "0" N *$<DW- 

alendar*^" ^a^^a—^Sr^ffi Lt, 1SSf fil# £ l$£-4f fg 

itsf-^-cfeotiitia^tifc 2000, 2001 ■ • • ©sms 

fc£ 9 51*R£ft5 3iiR^:£©7*— t*?—* "a" t U tit 
5f-^ffeot 1 ~ 1 2 ©$cfl£fc: J: «9 iiiR $ ft 51^©f- * & 

"b" iu "0" icitsf-^-e^o 1 1 ~ 3 i ©t iia 
•js^^ftsa^s:©^-^*:^*-^ "c- t vxmmu 1 o rubm 

flfiiOf-^ "a" , "b* > -c - OSe«im«l 0 t|5 

Ki-iMmmm^mv, m—x-hz>m&\z ra\ c g i 0 s 3©» cai 
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e n d a r * *Q.®^r 5? ^ -^Srfljffi UTMlf tfMRK: ^ £ *l 5 B##1f 

cgios3 l^*3^ts 1 -e^^a^ilbfex — 

AJ3 7 *>-~J»(Dm£T%B teJ&Ktcy*— ^«iL, ^^brcy* 
— ^^A^J7d— A-^ifiSir UTIEti^ 1 0 Id IE fit £ it 5 t b ^ 7 

^T>- h 7 d^fciSfS $tbfc5gftffi#<D^^S £fEig£|5 1 0 tSBtttStb 

1 ©featcSLfc?*— *7^fc:aSife-t-S n b laot, :/n ^ 

ATJ^;*- — A^^^^g (Dnmfctoz.X, ^ ^ y ? y ? X 31 y ? 

Jlffc Incite, ^7^7yb7 ^-fW'f" 6 HTMLJttSiif 1 ^ ^ /J? y 
? xM&Wtl?, ^(D^oc y ftfy ? xM%^*b^~ y ffi b LTHTM 
LXtSrMUT^ 7-f 7 y h 7 tgf f5. - © # ftJ^PgB 9 B\ A 

fry*— j»<Dmfems (Dm\^. z&mfemn <d Hfx^^^y^xi: 

f-^y^^^b Vtcmn fc?- y ? 7$ y ? ^ >y ? ffi b VXWtMZ 

^X^^yffcb LTSBftSfrifc^ai ? 4'#?^;*0>K£JgBlc#J&-*- 
5^lMfta^ femmm\z.^&tix^z>fr&fa&mmirz 0 mm. ^7^7 

^ h 7 &Z>T&m£tiZ>'?-=. y ?tfy ? xinm-tZWrn-Z, 9i£y 
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jy^Ji?y^^U:ilt5 ft**** 3Etef*« *LT V^ * v^-g* N fff!l#pgJ5 9 
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mm** ^-T'mmz.tttoZfofcmm? ^rv ^t^tu-iB*^ 

r > h k mm £ tl Z> B. flu laia-it^s t-IBtS $ * 5 if #lEt§ £ . 

m*mmmm*mmfcmmztbz>mm? 9 j t h&nzmmzLTtmmv^ 
y&femmkm-xhzm&iz.^ mmmmmwfcm^&thtcmmt&mm 

mbxnn&it. mmmnmrnx r> * ? j t > h%rmffimx.w 
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IBA^7*-^SrH!S«BfetJ:S&SB9 ? '-^|B««|Jfc|Btt!t§-fr 
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^olff *3 T Hu IB-x - * A# 7 ^- - A ^ o T Xt> £ fltz. XtS 7* 

^^(oi^mmmt ux^ffi^Hsx-^sisfpt. mmm,mmm^ 

£ tt 6 x - * <Sr bu IB^:^ i # ^IBtti- 5 * IB He £B £ £ 5 IB ft 
^@fctftfBA2J:r--*£rlBiSi£ii:S !>x^7/y ^-->3 Vf— ^£>ftj 
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M*mmmmmm^mmistiz>mm7*—?M.n : i®£ t?*ijsijbT, mm? 
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HUlE t? * left JP * B&I2^ 7^7^ f #Rt^MlB !7 a 

sit £ ftfcigftr if « ^7-Y7^h m z?&femm t 
* fi x v ^ t£ v > d> & & tti -r s ^fi* « & w a t N 
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ustream input_order($o) { # %£$CKJj^ h V —A 
top: 

$o = new <APP>::OysterOrder($S); 
$o->default; 

first: 

page(input_order.page) { 

$V->{SLOT} = { slot => $o->input }; 

} 

if ($V->{action} eq "next" ") { goto second; } 
goto first; 

second: 

if ($o->{ERROR} = $o->check) { goto first; } 
page (print_order_conf. page) { 
$V->{SLOT} = { slot => $o->print }; 

} 

if ($V->{action} eq 'back") { goto first; } 
elsif ($V->{action} eq "next") { goto third; } 
goto second; 

third: 

$o->{orid} = $o->nextorid; 
$$S{DA}->saveObject($o); 

fourth: 

page(print_order_done.page) { 
$V->{SLOT} = { slot => $o->print }; 

} 

if ($V->{action} eq "next") { goto first; } 
goto fourth; 
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# mm^&x&mm-z*?^? k ^^^mommit <member> x~$>z> 0 

package OysterOrden 

#BEGIN_DECLARE "\ 

$data = "oridint, # &3tlD 

brand int # ^M(D^m^— K 

recipe int, # PEH^fe^— K 

trimming int, # fSSfefsf-n— K 

comment text, # |^l^fe(c:oV ^X(D =1 * 1/ V 
primary key(orid)"; 

$seqs = "seq_6rid:orid:l ,"; 

$defo = 'brand => OysterType, recipe => RecipeType, trimming => TrimmingType"; 
#END_DECLARE 
use strict; 

sub new { # WH&tt^x ? h^l/^h??? 
my($type,$S,%hash) = @ j 

my %h = ( "S" => $S, 'SELF' => "OysterOrder", %hash); 
return bless ¥%h, "<APP>::OysterOrder"; 

} 

sub nextorid { # &OORID 

my($V) = @ jmy$S = $V->{S}; 

my($orid) = $$S{DA}->getrowf 'select nextval('seq_orid')"); 
$orid; 

} 



Pi 



J 



P2 



P3 



sub default { # y*-7*;v hM$rt y h ^ 
my($ V) = @_j my $S = $V->{S}; 
$V->{brand}=l;# tmM 
$V->{recipe} = l;# 
$V->{trimming} = 2; # u^i/<Dfr 
$V->{comment} = , ■ , ; 
delete $V->{orid}; 

} 
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sub input {# %E3c*jl?*— ^ 

my($V) =@jmy$S = $V->{S}; 

print_webform( # &5CA^J7^-— A 
'<table> 

<ifdef ERRORxspan class=eiroix!ERRORx/span></ifde1> 
<trxtd>^^#»:/tdxtd> 

o'nput type=select name=brand value=$brand choice=[OysterType]x/tdx/lr> 
<trxtd>#£S<DfTOfri£</tdxtd> 

<input type=select name=recipe value=$recipe choice=[Rea'peType]x/td></tr> 
<tr><td>^^6^5foN</tdxtd> 

<input type=TrimmingType name=trimming value=$trimmingx/tdx/tr> 
<tr><td>=i^ is h</td><td> 

<input type=text name=comment va!ue=$comment size=60x/tdx/tr> 
</table>'); 
} 

sub check { ^ 
my($V) = @j my $S = $V->{S}; 
my $count = 0; 
my $value = $V->{trimming}; 

while ($value>0) { $count += $value & 1 ; $value »= 1 ; } 
my $error = ""; 
if ($count>=3){ 

$error= n <>W^-WfirQ% 5Si!*|BH±2 fflS*-Wt"« 

} 

$erron 

} 

sub print { # &X(D HTML B&X*<D?m 

my($V) =@jmy$S = $V->{S}; 

print_webtext( # ^OHTML»re<Dm» 
'<table> 

<tr><td>TO<?5igM</tdxtdx%brandx/td></1r> l p 7 

<trxtd>«H^5(D^S^fe</tdxtdx%recipex/tdx/tr> 

<trxtd>^sx:^1^5l^</tdxtdx%trimmingx/tdx/tr> 

<trxtd>=i^ > f</td><tdx%commentx/tdx/tr> 
</table>'); 
} 
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(a) < &fc£rA2rt"3^'- v:/main/input_order.page> 

<h3>#M(DmR - mwmzmiLx < ^</h3> 

<#sloi> 
<br> 

<input fype=submit action-'nexT label="#^"i> 



(b ) <&£%:$&!&i~Z>'<— v ? :/main/print_order_conf.page> 

<h3>#p»^r«</c^V\ </h3> 

<#slot> 

<br> 

<input 1ype=submit action- 'nexf' \abe\-¥£3cM$? l > 
<input type=submit action- back" label-'M5"> 



( c ) <WC<D$£T Srii^Pi*^^— v ? :/main/print_order_done.page > 

<h>&T<0fSPSdt&*9 £ bfc</h3> 

<#slo1> 

<br> 

<input type=submit action="nexT label^'^UfcMS'^ 
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(a) <jg»;* hV— A:/init.stream> 

usfream init() { # jgSbx hV — A 
loop: 

pJorkf'^W > K** h y-A'V/main/init^ream'Vthis"); 

p_wait(); 

goto loop; 



( b ) < V ■< >- K h y — A:/matn/init^tream > 

usfream init() { # f? ^ is K?* h V — A 
loop: 

p_setPagenop.page"); 

p_fork(V— 3.— ""menu^fream'V'menu"); 

p_wait{); 

goto loop; 



( c ) < ^ =^3l—x. h y — A:/main/menu.stream > 
usfream menu() {# ^ — .3.— ^Rx h y — A 
first: 

page(menu.page) { 
} 

if ($V->{action} eq '1nput_order") { 

pJork( ,, ?^5^^^V1nput_order^fream , V' A view' , ); 
} elsif ($V->{action} eq list] { 

p_fork("SdC— ^^^"/'list^tream'VAmain"); 

} 

goto first; 
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Hi 7m 

(a) < fy^w-A(fi^ai^p):/main/top.page> 

<table widtti=100% height=100% bgcolor=#ffffff borderO cellspacing=2 
cellpadding=0 style="table-layoutfixed'^> 
<tr> 

<td width=l 43 valign=top align=left class=wallpaper> 
<divstyle="overflow:auto'^x#menux/divx/td> 
<td valign=top class=wallpaper> 
<div style^bverflow:auto'^#viev»/></div></td> 
</fc> 
<tr> 

<td colspan=2 height=70% valign=top class=wallpaper> 
<drvstyle="overflow:auto><#main></divx/td> 
</ir> 

</table> 



( b ) n.—^— > ? (0^ii^p) :/main/menu.page > 
<h3>p< 4 =-=2.-^/h3> 
<tablextrxtd valign=top> 

<table class=inner bgcolor=#ffffff border-color=#000000 border=2 
cellspacing=0 cellpadding=l 0> 
<tr><td valign=top> 

<li><^hre^^bction:input_order' , >^fc^tA^J</a> 
<!ixa href="action:lisf t>S5:— ^^</a> 
</td></tr> 
</table> 
</td></tr></table> 
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